home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / HENSA / MISC / FILERPATCH.ARC / !FilerPtch_Goodies_IconSprite (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1993-08-02  |  972 b   |  53 lines
  1.  FilerPatch.Goodies.IconSprite
  2.  (C) Jens H. Ovesen
  3. $+" at line "+
  4.  "Wimp_Initialise",200,&4b534154,"Filer_Action IconSprites" 
  5.  ,myhandle%
  6.  Block% &100
  7. dir$=""
  8.  "Wimp_Poll",0,Block% 
  9.  reason%
  10.  reason% 
  11.  17,18:
  12.       
  13.  Block%!16 
  14. )        
  15.  &403: dir$=
  16. str0(Block%+20)
  17. I        
  18.  &404: 
  19.  dir$<>"" 
  20. IconSprites(dir$,Block%+20) 
  21.  reason%=0
  22.         
  23.  &405: reason%=0
  24.       
  25.  reason%=0
  26.  "Wimp_CloseDown",myhandle%,&4b534154
  27. str0(p%)
  28.  i%=-1
  29. :i%+=1:
  30.  p%?i%=0
  31.  p%?i%=13
  32. IconSprites(d$,p%)
  33.  rest$,leaf$,file$,type%
  34.  rest$=
  35. str0(p%)
  36.  rest$<>""
  37.    p%=
  38. rest$," ")
  39.  p%<>0 
  40.      leaf$=
  41. rest$,p%-1)
  42.      rest$=
  43. rest$,p%+1)
  44.      leaf$=rest$
  45.      rest$=""
  46.    file$=dir$+"."+leaf$
  47. **   
  48.  "OS_File",23,file$ 
  49.  ,,,,,,type%
  50. ++   
  51.  type%=&ff9 
  52. "IconSprites "+file$
  53.